home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / ma.dir / 00005_layout lists.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  2.9 KB  |  62 lines
  1. on MAdoLayoutList
  2.   global gMAuniqChars, MAlayoutMaster, MAlayoutList
  3.   if gMAuniqChars = 4 then
  4.     set MAlayoutMaster to list([2: 0, 7: 0, 8: 0, 10: 0, 12: 0, 14: 0, 18: 0, 22: 0])
  5.   end if
  6.   if gMAuniqChars = 5 then
  7.     set MAlayoutMaster to list([2: 0, 3: 0, 5: 0, 7: 0, 9: 0, 10: 0, 12: 0, 15: 0, 18: 0, 22: 0], [1: 0, 4: 0, 5: 0, 7: 0, 8: 0, 11: 0, 12: 0, 14: 0, 18: 0, 22: 0], [2: 0, 4: 0, 5: 0, 7: 0, 8: 0, 10: 0, 12: 0, 14: 0, 19: 0, 22: 0])
  8.   end if
  9.   if gMAuniqChars = 6 then
  10.     set MAlayoutMaster to list([1: 0, 2: 0, 3: 0, 5: 0, 6: 0, 7: 0, 9: 0, 10: 0, 12: 0, 15: 0, 18: 0, 22: 0], [2: 0, 3: 0, 5: 0, 7: 0, 8: 0, 9: 0, 10: 0, 12: 0, 15: 0, 18: 0, 22: 0, 24: 0])
  11.   end if
  12.   if gMAuniqChars = 7 then
  13.     set MAlayoutMaster to list([2: 0, 3: 0, 5: 0, 7: 0, 8: 0, 9: 0, 10: 0, 12: 0, 15: 0, 16: 0, 18: 0, 22: 0, 23: 0, 24: 0], [1: 0, 3: 0, 5: 0, 7: 0, 8: 0, 9: 0, 10: 0, 13: 0, 15: 0, 17: 0, 18: 0, 22: 0, 23: 0, 24: 0])
  14.   end if
  15.   if gMAuniqChars = 8 then
  16.     set MAlayoutMaster to list([1: 0, 2: 0, 3: 0, 5: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0, 13: 0, 15: 0, 17: 0, 18: 0, 22: 0, 23: 0, 24: 0], [1: 0, 2: 0, 3: 0, 5: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0, 13: 0, 15: 0, 17: 0, 18: 0, 22: 0, 23: 0, 24: 0])
  17.   end if
  18.   if gMAuniqChars = 9 then
  19.     set MAlayoutMaster to list([1: 0, 2: 0, 3: 0, 5: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0, 13: 0, 14: 0, 15: 0, 17: 0, 18: 0, 20: 0, 22: 0, 23: 0, 24: 0])
  20.   end if
  21.   if gMAuniqChars = 10 then
  22.     set MAlayoutMaster to list([1: 0, 2: 0, 3: 0, 4: 0, 5: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0, 13: 0, 14: 0, 15: 0, 17: 0, 18: 0, 20: 0, 21: 0, 22: 0, 23: 0, 24: 0])
  23.   end if
  24.   set vMAcount to count(MAlayoutMaster)
  25.   set vMArandom to random(vMAcount)
  26.   set MAlayoutList to getAt(MAlayoutMaster, vMArandom)
  27. end
  28.  
  29. on MAdoLetters
  30.   global MAletterList, gMAcharNums
  31.   if gMAcharNums = 4 then
  32.     set MAletterList to [5: 0, 6: 0, 7: 0, 8: 0]
  33.   end if
  34.   if gMAcharNums = 5 then
  35.     set MAletterList to [5: 0, 6: 0, 7: 0, 8: 0, 9: 0]
  36.   end if
  37.   if gMAcharNums = 6 then
  38.     set MAletterList to [4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0]
  39.   end if
  40.   if gMAcharNums = 7 then
  41.     set MAletterList to [4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0, 10: 0]
  42.   end if
  43.   if gMAcharNums = 8 then
  44.     set MAletterList to [3: 0, 4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0, 10: 0]
  45.   end if
  46.   if gMAcharNums = 9 then
  47.     set MAletterList to [3: 0, 4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0]
  48.   end if
  49.   if gMAcharNums = 10 then
  50.     set MAletterList to [2: 0, 3: 0, 4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0]
  51.   end if
  52.   if gMAcharNums = 11 then
  53.     set MAletterList to [2: 0, 3: 0, 4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0, 12: 0]
  54.   end if
  55.   if gMAcharNums = 12 then
  56.     set MAletterList to [1: 0, 2: 0, 3: 0, 4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0, 12: 0]
  57.   end if
  58.   if gMAcharNums = 13 then
  59.     set MAletterList to [1: 0, 2: 0, 3: 0, 4: 0, 5: 0, 6: 0, 7: 0, 8: 0, 9: 0, 10: 0, 11: 0, 12: 0, 13: 0]
  60.   end if
  61. end
  62.